home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASSRC.ZIP / POINTERS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-04  |  554 b   |  32 lines
  1.                                 (* Chapter 12 - Program 3 *)
  2. program Pointer_Use_Example;
  3.  
  4. type Name  = string[20];
  5.  
  6. var  My_Name : ^Name; (* My_Name is a pointer to a string[20] *)
  7.      My_Age  : ^integer;  (* My_Age is a pointer to an integer *)
  8.  
  9. begin
  10.    New(My_Name);
  11.    New(My_Age);
  12.  
  13.    My_Name^ := 'John Q Doe';
  14.    My_Age^ := 27;
  15.  
  16.    Writeln('My name is ',My_Name^);
  17.    Writeln('My age is ',My_Age^:3);
  18.  
  19.    Dispose(My_Name);
  20.    Dispose(My_Age);
  21. end.
  22.  
  23.  
  24.  
  25.  
  26. { Result of execution
  27.  
  28. My name is John Q Doe
  29. My age is  27
  30.  
  31. }
  32.